' https://fontstruct.com/fontstructions/show/1205992/8_bit_6x6_nostalgia

DIM AS INTEGER ScreenMode%(0 TO 18) = {0,1,2,7,8,11,12,13,14,15,16,17,23,24,25,26,27} 

again:

FOR s% = 0 to 18
 SCREEN ScreenMode%(s%)
 new_y% = _fontheight * 20
 SCREEN _newimage( 240, new_y%, ScreenMode%(s%) )
 PRINT "Screen mode: " + ScreenMode%(s%)
 PRINT

_LETCHR$(123, _
 "........" + _
 "...XX..." + _
 "..XXXX.." + _
 ".XX..XX." + _
 ".XXXXXX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "........" )
 
 _LETCHR$(124, _
 "........" + _
 ".XXXXX.." + _
 ".XX..XX." + _
 ".XXXXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XXXXX.." + _
 "........" )
 
 _LETCHR$(125, _
 "........" + _
 "..XXXX.." + _
 ".XX..XX." + _
 ".XX....." + _
 ".XX....." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "........" )
  
 _LETCHR$(126, _
 "........" + _
 ".XXXX..." + _
 ".XX.XX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX.XX.." + _
 ".XXXX..." + _
 "........" )
 
 _LETCHR$(127, _
 "........" + _
 ".XXXXXX." + _
 ".XX....." + _
 ".XXXXX.." + _
 ".XX....." + _
 ".XX....." + _
 ".XXXXXX." + _
 "........" )
 
 _LETCHR$(128, _
 "........" + _
 ".XXXXXX." + _
 ".XX....." + _
 ".XXXXX.." + _
 ".XX....." + _
 ".XX....." + _
 ".XX....." + _
 "........" )
 
 _LETCHR$(129, _
 "........" + _
 "..XXXX.." + _
 ".XX..XX." + _
 ".XX....." + _
 ".XX.XXX." + _
 ".XX..XX." + _
 "..XXXXX." + _
 "........" )
 
 _LETCHR$(130, _
 "........" + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XXXXXX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "........" )
  
 _LETCHR$(131, _
 "........" + _
 ".XXXXXX." + _
 "...XX..." + _
 "...XX..." + _
 "...XX..." + _
 "...XX..." + _
 ".XXXXXX." + _
 "........" )
 
 _LETCHR$(132, _
 "........" + _
 "...XXXXX" + _
 ".....XX." + _
 ".....XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "........" )
 
 _LETCHR$(133, _
 "........" + _
 ".XX..XX." + _
 ".XX.XX.." + _
 ".XXXX..." + _
 ".XX.XX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "........" )
 
 _LETCHR$(134, _
 "........" + _
 ".XX....." + _
 ".XX....." + _
 ".XX....." + _
 ".XX....." + _
 ".XX..XX." + _
 ".XXXXXX." + _
 "........" )
 
 _LETCHR$(135, _
 "........" + _
 ".XX...XX" + _
 ".XXX.XXX" + _
 ".XXXXXXX" + _
 ".XX.X.XX" + _
 ".XX...XX" + _
 ".XX...XX" + _
 "........" )
 
 _LETCHR$(136, _
 "........" + _
 ".XX..XX." + _
 ".XXX.XX." + _
 ".XXXXXX." + _
 ".XX.XXX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "........" )
 
 _LETCHR$(137, _
 "........" + _
 "..XXXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "........" )
 
 _LETCHR$(138, _
 "........" + _
 ".XXXXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XXXXX.." + _
 ".XX....." + _
 ".XX....." + _
 "........" )
 
 _LETCHR$(139, _
 "........" + _
 "..XXXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX.X.X." + _
 "..XXXX.." + _
 ".....XX." )
 
 _LETCHR$(140, _
 "........" + _
 ".XXXXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XXXXX.." + _
 ".XX.XX.." + _
 ".XX..XX." + _
 "........" )
 
 _LETCHR$(141, _
 "........" + _
 ".XXXXX.." + _
 "XX...XX." + _
 ".XXX...." + _
 "...XXX.." + _
 "XX...XX." + _
 ".XXXXX.." + _
 "........" )
 
 _LETCHR$(142, _
 "........" + _
 ".XXXXXX." + _
 "...XX..." + _
 "...XX..." + _
 "...XX..." + _
 "...XX..." + _
 "...XX..." + _
 "........" )
 
 _LETCHR$(143, _
 "........" + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "........" )
 
 _LETCHR$(144, _
 "........" + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "...XX..." + _
 "........" )
 
 _LETCHR$(145, _
 "........" + _
 ".XX...XX" + _
 ".XX...XX" + _
 ".XX.X.XX" + _
 ".XXXXXXX" + _
 ".XXX.XXX" + _
 ".XX...XX" + _
 "........" )
 
 _LETCHR$(146, _
 "........" + _
 ".XX...XX" + _
 "..XX.XX." + _
 "...XXX.." + _
 "...XXX.." + _
 "..XX.XX." + _
 ".XX...XX" + _
 "........" )
 
 _LETCHR$(147, _
 "........" + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "...XX..." + _
 "...XX..." + _
 "...XX..." + _
 "........" )
 
 _LETCHR$(148, _
 "........" + _
 ".XXXXXX." + _
 "....XX.." + _
 "...XX..." + _
 "..XX...." + _
 ".XX....." + _
 ".XXXXXX." + _
 "........" )
 
 _LETCHR$(149, _
 "........" + _
 "........" + _
 "..XXXX.." + _
 ".....XX." + _
 "..XXXXX." + _
 ".XX..XX." + _
 "..XXXXX." + _
 "........" )
 
 _LETCHR$(150, _
 "........" + _
 ".XX....." + _
 ".XX....." + _
 ".XXXXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XXXXX.." + _
 "........" )
 
 _LETCHR$(151, _
 "........" + _
 "........" + _
 "..XXXX.." + _
 ".XX..XX." + _
 ".XX....." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "........" )
 
 _LETCHR$(152, _
 "........" + _
 ".....XX." + _
 ".....XX." + _
 "..XXXXX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXXX." + _
 "........" )
 
 _LETCHR$(153, _
 "........" + _
 "........" + _
 "..XXXX.." + _
 ".XX..XX." + _
 ".XXXXXX." + _
 ".XX....." + _
 "..XXXX.." + _
 "........" )
 
 _LETCHR$(154, _
 "........" + _
 "........" + _
 "...XXXX." + _
 "..XX...." + _
 ".XXXXX.." + _
 "..XX...." + _
 "..XX...." + _
 "..XX...." )
 
 _LETCHR$(155, _
 "........" + _
 "........" + _
 "..XXX.XX" + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXXX." + _
 ".....XX." + _
 "..XXXX.." )
 
 _LETCHR$(156, _
 "........" + _
 ".XX....." + _
 ".XX....." + _
 ".XXXXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "........" )
 
  _LETCHR$(157, _
 "........" + _
 "...XX..." + _
 "........" + _
 "..XXX..." + _
 "...XX..." + _
 "...XX..." + _
 ".XXXXXX." + _
 "........" )
 
  _LETCHR$(158, _
 "........" + _
 ".....XX." + _
 "........" + _
 "....XXX." + _
 ".....XX." + _
 ".....XX." + _
 ".XX..XX." + _
 "..XXXX.." )
 
  _LETCHR$(159, _
 "........" + _
 ".XX....." + _
 ".XX....." + _
 ".XX.XX.." + _
 ".XXXX..." + _
 ".XX.XX.." + _
 ".XX..XX." + _
 "........" )
 
  _LETCHR$(160, _
 "........" + _
 ".XXXX..." + _
 "...XX..." + _
 "...XX..." + _
 "...XX..." + _
 "...XX..." + _
 "...XXXX." + _
 "........" )
 
  _LETCHR$(161, _
 "........" + _
 "........" + _
 ".XXX.XX." + _
 ".XX.X.XX" + _
 ".XX.X.XX" + _
 ".XX...XX" + _
 ".XX...XX" + _
 "........" )
 
  _LETCHR$(162, _
 "........" + _
 "........" + _
 ".X.XXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "........" )
 
   _LETCHR$(163, _
 "........" + _
 "........" + _
 "..XXXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "........" )
 
   _LETCHR$(164, _
 "........" + _
 "........" + _
 ".XXXXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XXXXX.." + _
 ".XX....." + _
 ".XX....." )
 
   _LETCHR$(165, _
 "........" + _
 "........" + _
 "..XXXXX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXXX." + _
 ".....XX." + _
 ".....XX." )
 
  _LETCHR$(166, _
 "........" + _
 "........" + _
 ".X.XXX.." + _
 ".XX..XX." + _
 ".XX....." + _
 ".XX....." + _
 ".XX....." + _
 "........" )
 
  _LETCHR$(167, _
 "........" + _
 "........" + _
 "..XXXX.." + _
 ".XX....." + _
 "..XXXX.." + _
 ".....XX." + _
 "..XXXX.." + _
 "........" )
 
  _LETCHR$(168, _
 "........" + _
 "..XX...." + _
 ".XXXXX.." + _
 "..XX...." + _
 "..XX...." + _
 "..XX.XX." + _
 "...XXX.." + _
 "........" )
 
  _LETCHR$(169, _
 "........" + _
 "........" + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXX.X." + _
 "........" )
 
 _LETCHR$(170, _
 "........" + _
 "........" + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "...XX..." + _
 "........" )
 
  _LETCHR$(171, _
 "........" + _
 "........" + _
 ".XX...XX" + _
 ".XX...XX" + _
 ".XX.X.XX" + _
 ".XX.X.XX" + _
 "..XX.XX." + _
 "........" )
 
  _LETCHR$(172, _
 "........" + _
 "........" + _
 ".XX..XX." + _
 "..XXXX.." + _
 "...XX..." + _
 "..XXXX.." + _
 ".XX..XX." + _
 "........" )
 
  _LETCHR$(173, _
 "........" + _
 "........" + _
 ".XX..XX." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXXX." + _
 ".....XX." + _
 "..XXXX.." )
 
  _LETCHR$(174, _
 "........" + _
 "........" + _
 ".XXXXXX." + _
 "....XX.." + _
 "...XX..." + _
 "..XX...." + _
 ".XXXXXX." + _
 "........" )
 
  _LETCHR$(175, _
 "........" + _
 "..XXXX.." + _
 ".XX..XX." + _
 ".XX.XXX." + _
 ".XXX.XX." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "........" )
 
  _LETCHR$(176, _
 "........" + _
 "...XX..." + _
 "..XXX..." + _
 ".XXXX..." + _
 "...XX..." + _
 "...XX..." + _
 ".XXXXXX." + _
 "........" )
 
  _LETCHR$(177, _
 "........" + _
 "..XXXX.." + _
 ".XX..XX." + _
 "....XX.." + _
 "...XX..." + _
 "..XX...." + _
 ".XXXXXX." + _
 "........" )
 
  _LETCHR$(178, _
 "........" + _
 ".XXXXX.." + _
 ".....XX." + _
 "...XXX.." + _
 ".....XX." + _
 ".....XX." + _
 ".XXXXX.." + _
 "........" )
 
  _LETCHR$(179, _
 "........" + _
 "...XXXX." + _
 "..XX.XX." + _
 ".XX..XX." + _
 ".XXXXXX." + _
 ".....XX." + _
 ".....XX." + _
 "........" )
 
  _LETCHR$(180, _
 "........" + _
 ".XXXXXX." + _
 ".XX....." + _
 ".XXXXX.." + _
 ".....XX." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "........" )
 
  _LETCHR$(181, _
 "........" + _
 "..XXXX.." + _
 ".XX....." + _
 ".XXXXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "........" )
 
  _LETCHR$(182, _
 "........" + _
 ".XXXXXX." + _
 ".XX..XX." + _
 "....XX.." + _
 "...XX..." + _
 "...XX..." + _
 "...XX..." + _
 "........" )
 
  _LETCHR$(183, _
 "........" + _
 "..XXXX.." + _
 ".XX..XX." + _
 "..XXXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXX.." + _
 "........" )
 
  _LETCHR$(184, _
 "........" + _
 "..XXXX.." + _
 ".XX..XX." + _
 ".XX..XX." + _
 "..XXXXX." + _
 ".....XX." + _
 "..XXXX.." + _
 "........" )
 
 PRINT "Current Character Set:"
 for j = 1 to 2
 for i = 65 to 90
 print chr$(i);
 next i
 print
 for i = 97 to 122
 print chr$(i);
 next i
 print
 for i = 48 to 57
 print chr$(i);
 next i
 print
 next j
 print
  PRINT "New Character Set:"
 for j = 1 to 2
 for i = 123 to 148
 print chr$(i);
 next i
 print
 for i = 149 to 174
 print chr$(i);
 next i
 print
 for i = 175 to 184
 print chr$(i);
 next i
 print
 next j
 _DELAY 5
NEXT s%

GOTO again: